home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024d.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  959b  |  22 lines
  1. 4  HIMEM: 32616: HOME 
  2. 12  FOR I = 768 TO 781: READ J: POKE I,J: NEXT : DATA     160,164,140,14,3,32,64,144,206,14,3,208,248,96    
  3. 15  PRINT "<CTRL-D>BLOADGMDEMO"
  4. 18  POKE 37907, PEEK(37907) +128
  5. 19  HGR : HGR2 
  6. 20  CALL 768
  7. 30  PRINT "<CTRL-D>BLOAD GM.PIC,A$2000": PRINT "<CTRL-D>BLOAD SURFING.ANM": POKE  -16300,0: PRINT "<CTRL-D>BLOAD BACKGROUND.PIC,A$4000"
  8. 40  POKE 230,64
  9. 50  POKE 769,255: FOR I = 0 TO 1: CALL 768: NEXT 
  10. 130  TEXT : HOME : PRINT "WITH THE PICTURE/OBJECT EDITOR YOU CAN  CREATE PICTURES SO THAT HUNDREDS WILL   FIT ON A SINGLE DISK...  PERFECT FOR    ADVENTURE GAMES AND OTHER PROGRAMS      USING A LARGE NUMBER OF GRAPHIC IMAGES."
  11. 140  HIMEM: 32768
  12. 150  PRINT "<CTRL-D>BLOAD DM.O"
  13. 170  PRINT "<CTRL-D>BLOAD DM.PG,A16384"
  14. 175  HGR 
  15. 180  POKE 36352,0: POKE 36353,64
  16. 190  FOR I = 0 TO 6
  17. 195  IF I  THEN  POKE  -16302,0
  18. 200  CALL 36400: FOR D = 1 TO 3000: NEXT 
  19. 210  NEXT 
  20. 212  PRINT : PRINT  CHR$(4)"RUNWF"
  21. 220  CLEAR : GOTO 4
  22. 230  GOTO 4